﻿Imports System.Xml.Serialization

<XmlRoot("String")> Public Class tagString
    Inherits tagBase

    <XmlAttribute("Value")> Public Value As String

    Public Sub New()

    End Sub

    Friend Sub New(ByVal str As System.IO.Stream)
        MyBase.New(str)

        Dim encoding As New System.Text.UTF8Encoding

        Dim Len As UInt16
        Len = BitConverter.ToUInt16(ReadBytesFromStream(str, 2).Reverse.ToArray, 0)
        Value = encoding.GetString(ReadBytesFromStream(str, Len))

    End Sub
End Class
